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INTRODUCTION 



This manual describes the procedure for generating an 
APL\360 - DOS system adapted to a particular machine 
configuration, and the procedure for updating an existing 
APL\360 - DOS system to incorporate improvements and 
corrections. Familiarity with the following publications is 
assumed: 

xxx-xxxx APL\360 User's Manual 

xxx-xxxx APL\36 - DOS Operations Manual 

C24-5033 DOS/360 System Generation and Maintenance 

C24-5022 DOS/360 Operating Guide 

C24-5036 DOS/360 System Control and System Service 

For a listing of other APL publications, see the 
Bibliography in the APL\36 User's Manual. For other DOS 
publications, see the IBM System/360 Bibliography 
(A22-6822). 

APL\360 - DOS consists of two main components, the APL 
time-sharing system (Core Image phase APL360) and the APL 
Utility program (Core Image phase APLUTIL) . The APL 
time-sharing system operates as a privileged problem program 
under DOS and is normally run in a foreground partition. 
When running in a multiprogramming environment, its priority 
is alternated between the highest and the lowest in the 
system, thus providing a specified minimum percentage of the 
CPU for other jobs. 

The APL Utility program is normally run in the DOS 
background partition when APL360 is not running, and 
provides for backup and maintenance of APL Libraries. It is 
described in the APL\360 - DOS Operations Manual. 

The APL\360 system is based on the notion of a workspace, as 
explained in Part 2 of the APL\360 Users Manual. Operation 
of the system requires that space for a certain number of 
workspaces be available in core at all times, and some 
calculations given in this manual are based on the 
recommended mimimum workspace of 36000 bytes. The absolute 
minimum size is 20480 bytes, but this should not be used 
except where there is no alternative, since it leaves only 
16350 bytes for the user and some applications will not run 
in it. 
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MACHINE CONSIDERATIONS 



System Resources Used By APL36 

At least 160K bytes of main storage.* 
At least one 2311 (or 2314) Disk Storage Drive. 
At least one 2701, 2702, or 2703 Transmission Control 
Unit line position. 

Interval Timer. 



Minimum System Configuration 



CPU 



Unit Record 

DASD 

Tape 

T/P 
Terminals 



20 40 Processing Unit 

19 2K bytes main storage* 

Timer feature 

Universal Instruction Set 

Multiplexor Channel 

Selector Channel 

1052-7 Printer Keyboard 

Card Reader 

Card Punch 

Printer 

Three 2311 Disk Storage Drives and 2841 

Control Unit, or One 2314 Direct Access 

Storage Facility 
One 2400-series 9 track (or 7 track with 

data-conversion feature) magnetic tape 

unit and control unit 
One 2701, 2702 or 2703 Transmission Control 

Unit 
See Part 1 of the APL\360 User's Manual for 

a description of the types and features 

supported. 



Assumes a standard siz,e workspace. 



Additional Devices Supported 



CPU 



DASD 



Tape 
T/P 



2044 (with Commercial Feature), 2050, 2065, 

2067, 2075, 2085, or 2091 Processing 

Unit 
Additional Main 
High-Resolution 
Additional 2311 drives or 2314 

DASD drives used by APL for 

must be the 
One additional 



Storage 
Timer 

drives or 
used by APL 
same type) 
tape drive 



DASF (all 
Libraries 



Additional 270X Transmission Control Units 
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Data-Sets and Modems 

Dial-up terminals may be connected by Western Electric 
103A2* Data-sets. Fixed connection terminals may be 
connected either by IBM Limited-Distance Four Wire Modems, 
IBM World Trade 3976 Leased Line Modems, or Western Electric 
103F2* Data-sets. An interrupt facility is highly desirable 
for dial-up terminals, and is required for fixed connection 
terminals. 

* Or equivalent 



IBM 2701/2702/2703 Configuration Guide 

The accompanying tables give information for ordering a 
2701, 2702, or 2703 for use with APL. Specifications are 
given for configurations in which all ports are connected by 
103A2 (or equivalent) dataphones . The specifications must 
be modified if terminals are to be connected by IBM 4-wire 
modems or leased telephone lines, or as required for other 
teleprocessing applications. 

The symbol "n" appearing below represents the number of 
ports which are to be connected to the Transmission Control. 
The maximum number of ports which may be connected to a 2701 
is 4; to a 2702 is 31; and to a 2703 is 176. 

Feature Qy^jntity Note 

2 701 Transmission Control Unit 1 

4645 IBM Terminal Adapter Type I n 

3 855 Expansion Feature n- 1 

3815 Extended Capability n>2 Note 1 

904x Color 1 

990x Voltage 1 

2 702 Transmission Control Unit 1 

4615 IBM Terminal control Type I 1 

8055 2741 Break 1 

7955 31-Line Expansion n>15 Note 2 

3233 Data Set Line Adapter n 

969 6 Terminal Control Base 1 

9685 Selective Speed 134.5 bps 1 

904x Color 1 

990x Voltage 1 
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2 703 Transmission Control Unit 1 

7505 Start-Stop Base Type I rnvSS 

1440 Base Expansion n>88 

4619 IBM Terminal Control Base 1 

46 9 6 IBM Terminal Control Type I 1 

8055 2741 Break 1 

3205 Data Line Set fn^lS 

3206 Data Line Set Expander r(n-8 
4878 Line Speed Option 134,5 bps 1 
904x Color 1 
908x Cabling 1 

99 Ox Voltage 1 



Note 
Note 



Note 
16 Note 



Notes : 



1. One 3 815 if more than 2 lines. 

2. One 7955 if more than 15 lines. 

3. One 75 5 for up to 8 8 lines, two for more than 8 8 
lines. 

4. One 1440 if more than 88 lines. 

5. One 3205 for each group of sixteen lines or 
fraction thereof. 

6. One 3206 for each group of sixteen lines or 
fraction thereof greater than eight. 
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SYSTEM GENERATION PROCEDURE 



DISTRIBUTION TAPE FORMAT 

APL\360 - DOS is distributed as one magnetic tape volume 
consisting of eight physical files (six logical files). The 
first logical file contains standard labels, the remaining 
are unlabelled. 



HDRl . . . Standard Tape Header Label 

T/M 

APL\360 Distribution Library 

T/M 

EOFl . . . Standard Tape Trailer Label 

T/M 

APL\360 - DOS Update Job 

T/M 

Reserved File 

T/M 

Reserved File 

T/M 

DOS/360 R19 Update Job 

T/M 

DOS/360 R20 Update Job 

T/M 

T/M 



SUMMARY OF SYSTEM GENERATION STEPS 

If you are updating an existing APL system and wish to 
preserve APL Libraries, dump the libraries to tape (using 
the DUMP operation of the APL Utility) before beginning this 
APL system generation. This dump tape must be prepared 
using your current version of the APL Utility. This tape 
will later be restored in Step 3-E. If sufficient disk 
packs are available, hold the existing APL Library packs 
until system generation is finished as protection against 
hardware malfunction or human error. 
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The remaiJider of the APL generation procedure can be divided 
into three steps: 

1. Storage Requirement Calculation 

2. DOS System Generation for APL 

2-A. Restore DOS SYSRES from Tape 
2-B. Catalog Modifications to DOS 
2-C. DOS System Generation 

3. APL Generation 

3-A. Catalog APL Modules 

3-B. Assemble the APL Configuration 

3-C. Catalog APL 

3-D. Label APL Library and Swap Disks 

3-E. Create APL Libraries 

3-F. Initialize APL360 



1. STORAGE REQUIREMENT CALCUI-ATIONS 



The quantities WSSIZE, DIRS, INCORE, and lODEBUG are 
parameters of the APLSCONF macro of the APL Configuration 
which designate system parameters. 

WSSIZE (Workspace Size) designates the physical size in 
bytes for workspaces in the system. All calculations of 
directory capacity assume standard size (36000 byte) 
workspaces. The actual space required for workspaces in 
core is WSSIZE rounded up to the next 2K boundary; on disk 
it is the number of tracks to contain the active portion of 
the workspace, rounded up to the next track boundary. 

DIRS (Directories) designates the number of user directories 
in the APL Libraries. These directories contain the account 
number, name, billing information, and pointers to the saved 
workspaces of all enrolled users. Each standard size 
directory holds about 150 users and requires 21 tracks for 
2311 and 10 tracks for 2314. Two copies of each directory 
are maintained to protect the integrity of the information 
they contain. 

INCORE (Workspaces In Core) designates the number of areas 
of main storage reserved for workspaces when APL360 is 
running. INCORE must be at least 2, and in systems with 
more than 20 ports there is a considerable improvement in 
performance if INCORE is 3 or greater. 

lODEBUG designates the number of entries in the input/output 
trace table. The default value of 200 will suffice for most 
cases. The workspace 31^+159 lODEBUG r which uses this table, 
assumes that the length is a multiple of 100. 
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Two other quantities are not APLSCONF parameters , but are 
derived from the APL Configuration assembly. Po^^ts is the 
number- of ports configured by APLDEV macro calls, plus the 
number of ports in a control unit position bracketed by 
configured ports, Libs is the number of APLDS macro calls, 
not including the Swap extent. 



DISK<~10 



for 2311 



DISK<-2Q 



for 2314 



All APL Library extents must be on the same device type, 
although the Library and Swap devices may differ. 

Calculate the number of tracks required to contain a full 
workspace, 

WSTRK<'\WSSIZE^?>^2. ^xDISK 



liz e of Swap Extent in cylinders 



V^STRK<DISK 
WSTRK>DISK 



[ (P0RTS+5)^IDISK^WSTRK 
r (P0RTS+5)x[WSTRK^DISK 



If workspace size is greater than cylinder capacity, the 
Swap extent is the number of cylinders per workspace times 
five plus the number of ports. If workspace size is not 
greater than the cylinder capacity, the Swap extent is five 
plus the number of ports divided by the number of workspaces 
per cylinder. 



Minimum Size of Library Extent in cylinders 

r ( DIRSx ( 2XWSTRK ) + =DISK | WSTRK ) ^DISK 

The result is two times the number of directories times the 
number of tracks per workspace, plus one more track per 
directory if a workspace occupies a number of tracks that is 
an integral number of cylinders. 



Siz e of APL Partition in bytes 

APLCORE^20ii8x[ ( 82000 + ( LIBSx76) + (INCOREx ( Q + 20^8x[ WSSI ZE^ 
2 4 8) )+( I ODEBUGxlO)+PORTSx 312 )v2048 

The result is the sum of: 82000; 76 times the number of 
library extents; the number of workspaces in core times 8 
plus the workspace size rounded up to a 2K boundary; 312 
times the number of Dorts ; finally rounded up to a 2K 

boundary. 

The value given on the ALLOC statement for the partition APL 

will use is APLCORE divided by 1024. 
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Origin of APL Partition 

The calculation of the origin of APL360 depends on which 
partition is being used. The result of this calculation is 
used on the PHASE APL360 statement of Step 3-C. 

BG : 20i48x(SUPSIZE^20^8 

The end of the DOS supervisor, rounded to a 2K boundary. 

Fl : 20i48x\' (MACHINESIZE-APLCORE)^2Q^8 
The machine size minus the size of APL360. 

F2 : 20^8x[ (MACHINESIZE-APLCORE+20i^8x[FlSIZEir20ii8)^20^8 

The machine size minus the total size of APL360 plus the 
size of the foreground 1 partition rounded to a 2K boundary, 

2. DOS SYSTEM GENERATION FOR APL 



The procedure required to generate a DOS system for use with 
APL is the same as described in the DOS/360 System 
Generation and Maintenance Manual , with the exception that 
modified SYSGEN macros must be cataloged before the DOS 
supervisor is assembled. Also the DOS supervisor must be 
assembled with the. necessary options, as given in Table 1. 



Step 2-A Restore DOS SYSRES from Tape 

See the DOS/360 System Generation and Maintenance Manual for 
instructions. 



Step 2-B Catalog APL Modifications to DOS 

Mount the APL Distribution Tape on tape drive X'cuu' and 
enter the following statements from SYSLOG: 

MTC REW, X'cuu' ® 

MTC FSF, X'cuu', f ® f = 6 for R19, f = 7 for R20 

ASSGN SYSIN, X'cuu' ® 



This job catalogs DOS Sysgen macros with the modifications 
described in Appendix D. Only the macros which have been 
modified for APL are provided. When it is completed SYSLOG 
will print: ICOOA ATTN. c uu. Assign SYSIN back to its 
previous assignment. 
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step 2-C DOS System Generation 

Asseinble the DOS supervisor. Table I lists the 
multiprogramming supervisor options which may be used with 
APL. Catalog the DOS supervisor and system control and the 
desired language processors, and reallocate SYSRES as 
required. See the DOS/360 System Generation and Maintenance 
Manual for instructions . 



3. APL SYSTEM GENERATION 



Step 3-A Catalog APL Modules 

Mount the APL distribution tape on tape drive X'cuu' and 
enter the following statements from SYSLOG: 

MTC REW, X'cuu' ® 
MTC FSF,X'cuu',5 ® 
ASSGN SYSIN, X'cuu' (g) 
® 

This job catalogs the source and relocatable modules listed 
in Appendix C. When it is completed SYSLOG will print: 
ICOOA ATTN. c uu. Assign SYSIN back to its previous 
assignment. 



Step 3-B Assemble the APL Configuration 

The APL Configuration assembly consists of a series of macro 
calls which tailor APL to a particular system configuration. 
Table 2 describes the APL Configuration Macros. Many of the 
parameter options were discussed in Step 1. 

The program begins with an APLSCONF statement designating 
certain system parameters. An APLDEV statement follows for 
each port in the system, designating the hardware address of 
that port, as well as the type of connection. At least two 
APLDS statements follow, one to describe the Swap disk 
extent, and one for each APL Library extent. The APLSEND 
statement, followed by the assembler END statement, complete 
the program. 

Assemble the APL Configuration and get an object deck, which 
will be used in the next step. The configuration should 
assemble without error; Appendix B describes the diagnostic 
messages that may be produced by the APL Configuration. 
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MACRO 


RECOl^lMENDED 


ALLOWED 


NOT ALLOWED 


SUPVR 


SYSTEM=DISK 








MPS=YES 


MPS=BJF 


MPS=NO 




TP=APL 


TP=(APL,BTAM) 


TP = NO 






TP=(APL,QTAMnn) 


TP=BTAM 
TP=QTAMnn 




MICR=NO 




MICR = lifnn 




AP = NO 




AP=YES 




EU=NO 


EU=YES 




CONFG 


MODEL=nn 








SP=YES 




SP = NO 




DEC=YES 




DEC=NO 




FP=YES 




FP = NO 




T!MER=YES 




TIMER=NO 


STDJC 


All parameters are 


optional 




FORT 


OC = NO 


OC=YES 






IT=F1 note 1 


IT=F2 note 1 
!T=BG note 1 






PC=YES 




PC=NO 




TEB=n 


TEB=NO 






SKSEP=NO 


SKSEP=YES 
SKSEP=n 






CE=NO 




CE=YES 
CE = n 




PTO=YES 


PTO=NO 






CBF=NO 


CBF = n 






CCHAIN=YES 




CCHAIN=NO 




TRKHLD=NO 


TRKHLD=n 






AB=YES 




AB=NO 




WAITM=NO 


WAITM=YES 






ACCTG=YES note 2 


ACCTG=NO note 2 






DASDFP=Cn,n,231n) 


DASDFP=NO 






SYSFI L=NO 


SYSFI L=(231n,n,n) 




PIOCS 


SELCH=YES 




SELCH=NO 




BMPX=NO 


BMPX=YES note 3 






ru A Mci»i-Mn 

o 1 ir-\ IM O »» r H\j 


r»u A Mchi — nuix A 1 1 






oi i«rNo vv-" r\ »v 1 MU 








CHANSW=TSWTCH 






TAPE=9 


TAPE=7 


TAPE=NO 


ALLOC 


Fl=nK note k 


F2=nK note k 




lOTAB 


All parameters are 


optional 




DVCGEN 


notes 5 and 7 


ASSGN 


notes 6 and 7 


HOLD 


Fl note 8 


F2 note 8 




SEND 


X'280O' 


X'xxxx' 






(lOK SUPVR) 


OlOK SUPVR) 





Table 1 DOS Supervisor Options for APL 
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Notes on Table 1: 

1. Before APL is initiated, the interval timer must be 
assigned to the partition APL will use. Normally the 
timer will be given to a partition at sysgen and rarely 
changed, 

2. The ACCTG=YES parameter provides for job step CPU usage 
to be reported on SYSLOG. 

3. BMPX=YES should be specified only for tapes attached to 
a 2 870 selector subchannel. Burst mode devices may not 
be used on a multiplexor subchannel while APL is 
running. 

4. Storage allocation may be controlled in the usual way 
by the machine operator (see DOS Operating Guide). 
Specifying allocation at system generation will, 
however, make APL initiation easier. The calculation 
of the APL partition size was done in step 1. 

5. DVCGEN calls for 270X ports used by APL are not 
required; these ports are included in the APL 
Configuration (Step 3--B) . They must be included only 
if these ports are used by other applications when APL 
is not running. 

6. The ASSGN macro has been extended to permit assignment 
of logical units to a foreground partition. 

Example: ASSGN SYSOll, X ' 172 ' , Fl 

The partition (Fl, F2 or BG) is written following the 
physical unit designation. 

If such foreground assignments are made, the use of the 
ADD and DEL commands at IPL will yield unpredictable 
results. 

7. If APL ports are defined by DVCGEN statements, they 
must not be assigned to any partition while APL is 
running. 

8. The HOLD macro causes all I/O assignments for the 
foreground area specified to remain in effect after IPL 
and from job to job. This is particularly useful when 
logical units within foreground partitions are 
initially assigned, since the assignments will be held 
when the partition terminates or is cancelled. The 
HOLD can, of course, be overridden by the Machine 
Operator with a RELSE command. (See DOS Operating 
Guide. ) 



-11- 



Deck Setup: 



// JOB APLSCONF ASSEMBLE APL CONFIGURATION 

// OPTION DECK, LIST 
// EXEC ASSEMBLY 

APLSCONF DIRS=cl, INCORE=i , ... 

APLDEV X*uu', ... 

SWAP APLDS n, 'f I le-name' 

LIB APLDS n, *fi le-name' 



APLSEND 
END 



/* 
/& 



Step 3-C Catalog APL 

Linkage edit and catalog APL in the Core Image Library, as 
shown in the following deck setup. The APL Configuration 
object deck from the previous step must be inserted as 
specified. 

// JOB APLLINK LINK EDIT & CATALOG APL 
// OPTION LINK,CATAL 
// EXEC MAINT 

<<< APL Configuration object deck >>> 
/* 

PHASE APL360,F+nnnK note 1 

INCLUDE APLSLINK 
// EXEC LNKEDT 

INCLUDE APLUTI L 
// EXEC LNKEDT 
/& 

Note 1: nnnK is the origin of the partition that APL36 
will use. This value was calculated in Step 1. 

Note 2: These messages following the storage maps may be 
ignored: 

* UNREFERENCED SYMBOLS 

nnn UNRESOLVED ADDRESS CONSTANTS 



Step 3~D Label APL Library and Swap Disks 

During APL36 initialization, the pack on each logical unit 
specified in the APL Configuration APLDS statements is 
searched for the associated Format 1 label (DSCB) . These 



-12- 



LABEL 


MACRO 


OPERAND 


DESCRIPTION 


none 


APLSCONF 


HQSI=DOS 


This must be the first macro call, and appear 
only once . 


The host system with which APL will run. 


DIRS =5 
DIRS=d 


The number of user (directories in the APL 
libraries; d must be 2 or greater. 


WSSIZE=36000 
WSSIZE=n 


The size in bytes for workspaces. WSSIZE 
should be specified as standard (36000) unless 
major requirements dictate otherwise, 
n > 20480 and n < 216000 (2311) or n < 432000 
(2314) . 


INC0RE=3 
!NCORE=! 


The number of areas of WSSIZE bytes reserved 
in main storage; i must be 2 or greater. 


EXPLIM=8 
EXPLIM=m 


The express time limit in minutes in effect 
when APL is initialized. This limit may also 
be designated during APL operation. 


IODEBUG=200 
IODEBUG=n 


The number of entries in the lODEBUG trace 
table. 


none 


APLDEV 


X'uu' 


One APLDEV call is required for each multiplex 
device. APLDEV calls must be given in order 
of increasing multiplex addresses. 


The multiplex device address. 


TYPE=AMB!G 

TYPE=1050 

TYPE=1052 

TYPE=27itl 

TYPE=TS'+1 


The type of device on this oort. AMBIG 
denotes a dial-up connection (103-A2 or 
equivalent). For a fixed connection, the 
terminal type must be designated: 1052 denotes 
the 1052-7 console keyboard-printer; 2741 
denotes a 2740 or 2741 with standard Selectric 
keyboard; TS41 denotes a 2740 or 2741 with 
PTTC/EBCD keyboard. 


SAD=SADO 
SAD=SAD1 
SAD=SAD2 
SAD=SAD3 
SAD=NOP 


For a 2 70 2 port, gives the terminal control 
address wired to this port. For a 2701 port, 
SAD=NOP is required. For a 2703 port or 
1052-7, any SAD is valid. 


EXPRESS=NO 
EXPRESS=YES 


Designates whether this port is express when 
APL is initialized. Express ports may also be 
designated during APL operation. 


SWAP 

LIB 

none 


APLDS 


n 


Designates the disk extents used by APL. The 
first call, which must be labelled SWAP, 
designates the swap extent. The second call, 
which must be labelled LIB, designates library 
extent zero. Subsequent calls, if present, 
define additional library extents, and are not 
labelled. 


DOS logical unit number assigned to the drive 
which contains this extent. 


'f ! 1 e-nanie ' 


The file name of this extent. The file name 
may be up to 44 characters long; trailing 
blanks may be omitted. 


none 


APLSEND 


none 


Follows the last APLDS call and precedes the 
END card. 



TABLE 2 APL\360-DOS Configuration Macros 
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labels must be written when APL is first generated. They 
are written subsequently only to change file names or extent 
boundaries. (See APL Operations Manual). A deck setup of 
the following form is required for each label to be written: 

// ASSGN SYSnnn,X'cuu' 
// DLBL APLDS, 'f ne-name'^99/565 
// EXTENT SYSnnn,serial,,^fff,ttt 
// EXEC APLLABEL 

SYSnnn may be any valid logical unit, but must be 

the same on the ASSGN and EXTENT statements, 
cuu is the device address on which the pack is 

mounted, 
file-name is the identification of this extent, and 

must agree with the corresponding APLDS 

statement in the APL Configuration, 
serial is the volume serial number of the disk 

pack, 
fff is the relative starting track of this 

extent, and must correspond to track zero of 

some cylinder, 
ttt is the number of tracks in this extent, and 

must represent an integral number of 

cylinders. 



Step 3-E Create APL Libraries 

If APL Libraries are being preserved, mount the APL Dump 
tape on tape drive X'cuu', otherwise mount the APL 
Distribution Tape. Provide the following statements on 
SYSIN: 



// 
/ / 

'// 
// 



JOB APL350 CREATE APL 

ASSGN SYS 004^ X' cuu' 

ASSGN SYSOOS^X'cuu' 

EXEC APLUTI L 

WSLIST 

CREATE 

SELREST << Only when 

ACCTG 1 



LIBRARIES 



Libraries being preserved >> 



/* 
/& 



The tape label is logged, and several minutes are spent 
formatting the library disks. The tape rewinds, the label 
is logged again and the tape is read and the workspaces 
written to disk. At end of file workspace totals are logged 
and the tape is unloaded. 
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If APL Libraries are being preserved, the DOS message 

0P08A_ INTERV REQ SYS00t| = cuu is logged. Mount the APL 

Distribution Tape. This tape will also be read and the 
workspaces transfered to disk. 

SYSLST will contain a listing of all workspaces as they are 

written to disk, as well as an accounting listing of all 
libraries and workspaces in the system. 



Step 3-F Initialize APL360 

Start APL360 in the manner described in the APL Operations 
Manual. 

The operator's workspace - OPENS must nov; be initialized 
from the recording terminal by these statements: 

)LOAD OPFNS 
SA VED time date 

INITIALIZE 

This defined function will give the operator a series of 
instructions, allowing him to initialize the workspace OPFNS 
which provides utility functions. The phone numbers 
requested are used to identify the ports for several of the 
functions (e.g. FREE, PORT, and PHONE) and may be 4 , 7 , or 
10 digits as desired. Although a number of phones may be 
connected to a roll-up with a single access number, the 
actual phone numbers should be provided to facilitate 
servicing. For fixed connection ports any numbers may be 
provided for identification. After the initialization is 
completed, OPFNS should be saved, using the system command 
)SAVE OPFNS tlock. 

The APL Operator should examine the contents of Dublic 
library 1, to which the distribution library should have 
been restored. He can do this with the command: 

)LIB 1 

which will cause a list of the workspaces in public library 
1 to be printed. 
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SOME COMMON PROBLEMS 

The system enters a tight loop immediately after the message 
APL HAS m SLOTS, nnnn BUFFERS. 

- Check in the APL Configuration that all dial-up ports 
have been designated as TYPE=AMBIG, and all 
fixed-connection ports have been designated with the 
correct terminal type (TYPE=2741, TYPE=TS41, 
TYPE=1050 or TYPE=1052) (Step 3-B) . 

- Have the Customer Engineer verify that the proper SAD 
command has been designated for ports connected to a 
2702 Transmission Control Unit (Step 3-B) . 

- Check that SAD=NOP has been designated for ports 
connected to a 2701 Transmission Control Unit (Step 
3-B). 

- Have the Customer Engineer verify that the proper 
condition code is being set after a SIO instruction 
to the 270X Transmission Control Unit. 

- If the 2 70X Transmission Control Unit is address 
x'80' or higher, verify that the CPU has the 
additional multiplexor subchannel feature. 

- Check that all ports designated by APLDEV statements 
in the APL Configuration (Step 3-B) are physically 
installed in the 270X Transmission Control Unit. 

The telephones attached to the 2 7 OX Transmission Control 
Unit will not answer. 

- Ensure that the data-sets have power and are in the 
auto- answer mode, 

- Check that the telephones are installed, that a 
dial-tone can be obtained, and that the data-set 
rings when dialed. 

- Have the Customer Engineer verify that the telephones 
are correctly connected to the. 270X Transmission 
Control Unit. 

- Have the Customer Engineer verify that the proper SAD 
command has been designated for ports connected to a 
2702 Transmission Control Unit (Step 3-B). 

A 2 741 keyboard repeatedly unlocks immediately after the APL 
operator enters ) 31415 9. 

- Ensure that the first character entered is ) on the 
APL keyboard, 

- Verify that the 270X Transmission Control Unit is at 
a recent Engineering Change level. 

- Check in the APL Configuration that all dial-up ports 
have been designated as TYPE=AMBIG, and all 
fixed-connection ports have been designated with the 
correct terminal type (TYPE=2 741, TYPE=TS41, 
TYPE=1050 or TYPE=1052) (Step 3-B). 

- Try another 2 741. 
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The Attention signal does not function correctly. 

- Verify that the terminal used has the attention 
feature. 

- Verify that the 270X Transmission Control Unit has 
the 2741 Break Feature installed. 

- Have the Customer Engineer verify that the proper SAD 
command has been designated for ports connected to a 
2702 Transmission Control Unit (Step 3~B) . 

- Ports connected to a 2701 Transmission Control Unit 
do not fully support the Attention signal. 

The dial-up connection is not disconnected when a user 
signs-of f . 

- Ensure that the data-sets have the remote-disconnect 
feature. 

- Verify that the 270X Transmission Control Unit is at 
a recent Engineering Change level. 
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009 




OOC 




OOD 




OOE 




020 


to 02F 


030 


to 03E 


170 


to 177 


282 


and 2 83 



APPENDIX A 

EXAMPLE APL SYSTEM GENERATION 

Configuration ; Systein/360 Model 50 H 

Device Address 

1052 Console Printer-Keyboard 

2540 Card Reader 

2540 Card Punch 

1403 Printer 

2702 Transmission Control Unit 

IBM 4 wire modems , Sad 2 

103A2 Dial-up, Sad 1 
2314 DASF 
2400 9 Track Tape 

Step 1 Storage Requirement Calculations 

INCORE^S 
IODEBUG^200 
FOR TS^ 31 
LIBS^2 
DISK<-20 

n^WSTRK<-[WSSIZE^ 362. ^xDISK 
5 

Size of Swap Extent in cylinders 

r ( FORTS -v 5 ) i \_ul SK^wSTRK 
9 

Minimum Size of Library Extent in cylinders 

r ( DIRSx ( 2 X WSTRK ) + ^DISK \ WSTRK ) ^DISK 
3 

Size of APL Partition in bytes 

U<-AFLC0RE^2 048xr(82000+( LIBS x 7 6 ) + (INCOREx ( 8+ 2 4 8 x f 
WSSIZE^20^8))+(IODEBUGxlO)+PORTSx312)^20^, 
202752 

AFLCORE^102n 
198 
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Origin of APL Partition 



59392 



58 



MA CHINESIZE^2 5 6x1024 

n^0RIGIN<-2 0i48x[ (MACHINESIZE-APLC0RE)ir2 0^8 



Step 2 DOS System Generation 



// JOB APL360 
// OPTION LIST, 
// EXEC ASSEMBL 
SUPVR 
CONFG 
STDJC 
FOPT 



PIOCS 
ALLOC 
lOTAB 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

DVCGEN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

ASSGN 

HOLD 

SEND 

END 



ASSEMBLE 
DECK,XREF 
Y 
SYSTEM=DI 
MODEL=50, 
DUMP=NO 
OC=YES, IT 
AB = NO,PTO 
DASDFP=(1 
SELCH=YES 
F1=198K,F 
BGPGR=25, 
CHANQ=50, 
CHUN=X'00 
CHUN=X'00 
CHUN=X'00 
CHUN=X'00 
CHUN=X'17 
CHUN=X' 
CHUN=X* 
CHUN=X' 
CHUN=X' 
CHUN=X' 
CHUN=X' 
CHUN=X' 
CHUN=X'28 
CHUN=X'28 
SYSLOG/X' 
SYSRDR,X' 
SYSIPT^X' 
SYSPCH,X' 
SYSLST^X' 
SYSLNK^X' 
SYS001,X' 
SYS002,X' 
SYS003,X' 
SYS006,X' 
SYS007,X' 
SYS006,X' 
SYS007,X* 
Fl 
X'2800' 



17 
17 
17 
17 
17 
17 
17 



DOS SUPERVISOR 



SK,MPS=YES,TP=APL 
SP=YES,DEC=YES,FP=YES,TIMER=YES 

=F1,PC=YES,TEB=10,CCHAI N=YES, 

=YFS, ACCTG=YES, CE = NO, 

,6,2314) 

, TAPE=9 

2 = 0K 

F1PGR=10,F2PGR=5,JIB=30, 

IODEV=50 

9 

C 

D 

E 



1 

2 

3 

h 

5 

6 

7 

2 

3 

009' 

OOC 

OOC 

OOD' 

OOE' 

171' 

171' 

171' 

171' 

172' 

173' 

172' 

173' 



,DVCTYP=1050A 

,DVCTYP=25i+0R 

,DVCTYP = 25l40P 

,DVCTYP = 1I|03 

,DVCTYP=2314 

,DVCTYP=231U 

,DVCTYP=2314 

,DVCTYP=2314 

,DVCTYP=2314 

,DVCTYP=231U 

,DVCTYP=2314 

,DVCTYP = 231I* 

,DVCTYP=2400T9 

,DVCTYP = 2I+00T9 



Fl 
Fl 



/* 
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StQP 3:=A Catalog API^ Mgcau l gs 

BG mtc rew,x'283' B 
BG mtc fsf,x'283',3 B 
BG assgn sysin,x'283' B 
BG B 



Step 3-B Assemble the APL Configuration 



// JOB APLSCONF 
// OPTION LISTED 
// EXEC ASSEMBLY 

APLSCONF 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 

APLDEV 
SWAP APLDS 
LIB APLDS 

APLDS 

APLSEND 

END 
/* 
/& 



ASSEMBLE 
ECK,XREF 



THE APL CONFIGURATION 



X'20 



DEFAULT OPTIONS 



'21 
'22 
'23 
'2it 
'25 
'25 
'27 
'28 
'29 
'2A 
'2B 
'2C 
'2D 
'2E 
'2F 
'30 
'31 
'32 
'33 
'3k 
'35 
'36 
'37 
'38 
'39 
'3A 
'3B 
'3C 
'3D 
'3E 

6, 'AP 

7, 'AP 
5, 'AP 



,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 
,TYPE 



=TSi|.l,SAD=SAD2 
=TSi+l,SAD=SAD2 
=TS41,SAD=SAD2 
=TSij.l,SAD=SAD2 
= 27i^l,SAD=SAD2 
=2741,SAD=SAD2 
= 271^1, SAD=SAD2 
= 27lil,SAD = SAD2 
= 27^11, SAD = SAD2 
=2741,SAD=SAD2 
=2741,SAD=SAD2 
=2741,SAD=SAD2 
=2741.SAD=SAD2 
= 27I|1,SAD=SAD2 
= 27ifl,SAD = SAD2 
= 27t|l,SAD=SAD2 



DEFAULT OPTIONS 



L.SWA 
L.LIB 
L.LIB 



P' 

.ZERO' 

.ONE' 
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StP.p 3-C Ha ha log APT. 

// JOB APLLINK LINK EDIT & CATALOG APL 
// OPTION LINK,CATAL 
// EXEC MAINT 

<<< APL Configuration Object Deck >>> 
/* 

PHASE APL360,F+58K 

INCLUDE APLSLINK 
// EXEC LNKEDT 

INCLUDE APLUTI L 
// EXEC LNKEDT 
/& 



Step 3-D Label APL Library and Swap Disks 

// JOB APLLABEL LABEL APL DISKS 

// ASSGN SYS006,X'172' SWAP 

// DLBL APLDS, 'APL. SWAP', 99/365 

// EXTENT SYS006,APL001,,,20,200 

// EXEC APLLABEL 

// ASSGN SYS007,X'173' LIBRARY 

// DLBL APLDS, 'APL. LIB. ZERO', 99/365 

// EXTENT SYS007,APL002,,,20,3960 

// EXEC APLLABEL 

// ASSGN SYS006,X'172' LIBRARY 1 

// DLBL APLDS, 'APL. LIB. ONE', 99/365 

// EXTENT SYS006,APL001,,, 220, 3760 

// EXEC APLLABEL 

/& 



Sl-fip ^-K Cir(^.Ri:e>. APT. T.-i hrari p^s 

// JOB APL360 CREATE APL LIBRARIES 
// ASSGN SYS00ff,X'283' 
// ASSGN SYS005,X'283' 
// EXEC APLUTI L 

WSLIST 

CREATE 

ACCTG 1 

/* 
/& 
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step 3-F Initialize APL360 

)31M-15 9 Sign-on Recording Terminal 

OPR) 14.53.09 09/26/69 OPERATOR 

^ P L \ 3 6 

)LOAD OPENS Load OPFNS Workspace 

SA VED 12.05.57 09/01/69 

INITIALIZE Initialize OPFNS 

^ P L \ 3 6 OPERATOR FUNCTIONS INITIALIZATION 
THIS SYSTEM HAS 31 PORTS, 

ENTER PHONE NUMBERS OR OTHER NUMERIC IDENTIFICATION 
TO STOP NUMBERING PREMATURELY, TYPE STOP 
PORT 1 MPX 2 FIXED, ID IS: 
9901 

PORT 2 MPX 21 FIXED, ID IS: 
9902 

* • • 

PORT 16 MPX 2F FIXED, ID IS: 

9916 

PORT 17 MPX 3 DIALUP, PHONE NUMBER IS. 

3500 

PORT 18 MPX 31 DIALUP, PHONE NUMBER IS 

3501 

PORT 19 MPX 3 2 DIALUP, PHONE NUMBER IS 

• • • 

PORT 3 MPX 3D DIALUP, PHONE NUMBER IS 
3513 

PORT 31 MPX 3E DIALUP, PHONE NUMBER IS: 
3514 

OPFNS INITIALIZATION IS COMPLETE, SAVE THIS WORKSPACE 
WITH THE SYSTEM COMMAND )SAVE OPFNS 

SINCE THIS WORKSPACE SHOULD BE USED ONLY BY THE OPERATOR 
OR BY SYSTEMS PROGRAMMERS, PROTECT IT WITH A LOCK, 
(SEE APL\ 36 USER'S MANUAL) 

)SAVE OPFNS :SECRET Save OPFNS With Lock 

15. 28„ 04 09/26/69 

2 3 4+567 Try Some APL Statements 

7 8 9 

)OFFiPASSWORD Sign-off Changing Sign-on Lock 

OPR 15ol4.21 09/26/59 OPE 

OPR 16of4o21 9/26/69 OPE 

CONNECTED 1.21„12 TO DATE 1,21.12 

CPU TIME 0.00o20 TO DATE 0.00.20 



-22- 



APPENDIX B 



APL\360 - DOS CONFIGURATIDN ASSEMBLY DIAGNOSTIC MESSAGES 



APLSCONF Macro 



DIRS MAY NOT BE LESS THAN 1, MACRO IGNORED 

Meaning : APL requires at least 2 directories. 

Effect : The assembly is unusable and must be corrected 
and rerun. 

HOST SPECIFICATION INVALID, MACRO IGNORED 

Meaning ; The host system must be specified as DOS, 
APL, or CP6 7. 

Effect: The assembly is unusable and must be corrected 
and rerun, 

INCORE MAY NOT BE LESS THAN 2, MACRO IGNORED 

Meaning : APL requires at least 2 slots in core. 

Effect : The assembly is unusable and must be corrected 
and rerun. 

lODEBUG MAY NOT BE LESS THAN 1, MACRO IGNORED 

Meaning : APL requires at least 1 entry in the 
input/output debug trace table. 

Effect : The assembly is unusable and must be corrected 
and rerun. 

WARNING - NON STANDARD WORKSPACE SIZE 

Meaning ; Warning that the workspace size designated is 
not standard. 

Effect : None. 

WS SIZE TOO SMALL, MACRO IGNORED 

Meaning ; The workspace size must be at least 20480 
bytes. 

Effect ; The assembly is unusable and must be corrected 
and rerun. 
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APLDEV Macro: 



APLDEV CALLS OUT OF ORDER, MACRO IGNORED 

Meaning ; The APLDEV macro calls must follow the 
APLSCONF macro call and must be in ascending sequence 
by multiplexor device address. 

Effect ; The port designated by this statement is not 
included in the configuration, however the assembly is 
otherwise usable. 



APLDS Macro: 



FILE NAME INVALID, MACRO REJECTED 

Meaning ; The file name for the extent must be put in 
quotes . 

Effect ; This extent is not included in the assembly. 

FILE NAME TOO LONG, TRUNCATED 

Meaning : The file name may not be longer than 44 
characters . 

Effect ; The file name is truncated to 44 characters. 

LOGICAL UNIT INVALID, MACRO REJECTED 

Meaning : The DOS logical unit number must not be less 
than or greater than 244. The logical unit number 
may not be designated as 4 or 5 for a Library extent. 

Effect: This extent is not included in the assemblv. 



APLSEND Macro: No diagnostics. 



Assembler Diagnostics may occur in conjunction with some of 
the APL diagnostics. 
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APPENDIX C 



APL\360 - DOS LIBRARY SPACE REQUIREMENTS 



The following tables give the approximate disk space in the 
DOS libraries used by APL. Actual requirements may vary 
slightly due to the difference in record lengths used by DOS 
for 2311 and 2314 drives. The size of APL360 will also 
vary, depending on the number of ports and APL library 
extents. The figures shown are for a system with 60 ports 
and 5 library extents. 



DOS Core Image Library 

Phase Records Notes 



$$BEACCT 


1 


$$BOAPL 


1 


APLLABEL 


2 


APLUTl L 


25 


APL360 


60 



DOS Relocatable Library - APL 

Module Records Notes 



APLLABEL 


6 




APLSAGOR 


h 




APLSTAKE 


7 




APLSARTH 


20 




APLSASUP 


145 




APLSBASE 


4 




APLSBLOW 


4 




APLSCATN 


6 




APLSCONF 


65 


Varies 


APLSDEXP 


3 




APLSDIOT 


4 




APLSDKFM 


5 




APLSDPY 


7 




APLSDQRY 


4 




APLSDRHO 


5 




APLSDSER 


11 




APLSDTRA 


5 




APLSDYi B 


7 




APLSEPSI 


4 





by installation 
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APLSERAF 


7 




APLSFFSS 


k 




APLSGOUT 


5 




APLSGRAD 


k 




APLSMIBM 


6 




APLSINDX 


16 




APLSLINK 


50 




APLSMSOP 


Ik 




APLSMTRA 


k 




APLSOCTL 


13 




APLSOPEN 


7 




APLSOPLB 


5 




APLSPCSB 


6 




APLSPROD 


8 




APLSRAVL 


2 




APLSREDU 


7 




APLSREPS 


h 




APLSMRIO 


3 




APLSSCOP 


8 




APLSSINA 


11 




APLSSINI 


12 




APLSSLCT 


9 




APLSSUPA 


140 




APLSSYNT 


20 




APLSTBCD 


5 




APLSTPIN 


51 




APLSTRTB 


11 




APLSTRTC 


11 




APLSROTR 


8 




APLUBI LL 


10 




APLUDISK 


25 




APLUDUMP 


13 




APLUINST 


3 


Varies by insta 


APLUMAIN 


18 




APLURSTR 


17 




APLUTAPE 


93 




APLUTI L 


15 




APLUUREC 


15 
906 




DOS Source Statement 


Library 


- APL 


Book 


Records 


Notes 


APLSCONF 


k2 




APLDEV 


kO 




APLDS 


7 




APLSEND 


23 




APLPUB 


2 


Auxiliary Macro 


APLSUPC 


19 
133 


Auxiliary Macro 
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DOS Source Statement Library :i DOS Release 19 
Book Records Notes 



ASSGN 

COMMN 

FOPT 

SEND 

HOLD 

SGDFCH 

SGSVC 

SGTCHS 

SGTCON 

SGUNCK 

SUPVR 



19 

56 

228 

187 

5 

96 
253 
325 
127 
111 

hS 
li|52 



DOS Source Statement Library ~ DOS Release 20 
Book Records Notes 



ASSGN 

COMMN 

FOPT 

SEND 

HOLD 

SGDFCH 

SGSVC 

SGTCHS 

SGTCON 

SGUNCK 

SUPVR 



19 

56 

230 

192 

5 

98 
261 
337 
128 
lOi^ 

52 
lif82 
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APPENDIX D 



CHANGES TO DOS/360 SUPERVISOR FOR APL 



The modifications to DOS have been confined to the DOS core 
resident supervisor ($$A$SUP1), program number 360N-CL-453. 
These modifications are a true superset of the DOS 
supervisor, and if a supervisor is generated without APL 
specified, the same supervisor will be generated as with the 
standard macros. When APL is selected, an additional 
logical transient ($$BEACCT) is called at end of job step to 
reset and optionally log CPU time usage on SYSLOG, before 
control is transfered to $$BEOJx. The following changes 
take effect when APL is specified: 



MACRO 



DESCRIPTION OF CHANGES 



ASSGN Macro extended to permit assignments to Fl and F2 
partitions . 

CQMMN Pointers to time accounting and scheduling tables 
added to the background communication region. 

DSECT option added for use in other assemblies. 



FOPT 



Optional ACCTG parameter added to select end of 
job step accounting on SYSLOG. 



DOS scheduler modified to dispatch a partition 
immediately after an I/O interrupt. 

Total CPU time usage by partition is maintained. 

All bound wait done in problem state with PSW 
address zero, to facilitate machine check 
recovery. 



HOLD 



Macro added to permit foreground assignments to be 
held from system generation and between job steps. 



SGDFCH Total CPU time usage by partition is maintained. 

SGSVC Program check in supervisor state causes the 
system to enter a hard wait. 



SGTCHS 



Linkage to channel appendage routine included. 



DOS scheduler modified to dispatch a partition 
immediately after an I/O interrupt. 
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SGTCON Tables for CPU time accounting added. 

SGUNCK Unique code put into the address of the hard wait 
PSW for each type of hard stop. 

If a machine check occurs in the problem state, a 
message is logged and an attempt is made to resume 
the running program. If in supervisor state, a 
hard wait is entered. 

Total CPU time usage by partition is maintained. 

SUPVR The option APL has been added to the JP parameter. 
The TP parameter may optionally be a subJ.ist, 
permitting specification of APL with or without 
BTAM or QTAM as desired. 

Diagnostic scan-out area expanded to the 256 byte 
maximum size. 

A branch to EXT0 3 is assembled at absolute 
location x'188' for APL entry to the DOS general 

exit. 
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APPENDIX E 



ADDING INSTALLATION BILLING ROUTINES TO THE APL UTILITY 



This appendix sets forth the rules for writing and adding 
billing routines to APL\360 - DOS. Billing routines may be 
added during system generation or at any later time; they 
need not be added at all if no billing of users is to be 
done. 

The Utility BILLING operation reads cards containing account 
numbers (and, optionally, other data), locates and resets 
accounting information stored in an APL directory, and 
provides the accounting information to an installation- 
written formatting program. The use of card input allows 
selective billing (since a user's accumulated CPU and 
connect time will be neither reset nor output unless his 
account number is on an input card) , and it also allows 
optional information on input cards to be combined with the 
accounting output. Because the Utility buffers up to two 
hundred input cards in order to minimize disk accesses, 
billing output will not usually appear in the same order as 
the input cards . 

The Utility performs card reading and buffering; directory 
reads, searches, and writes; and card punching. The 
routines to be written by the installation for input and 
output formatting are named APLUBILN and APLUBILP', and must 
be cataloged in the relocatable library under the name 
APLUINST, Standard DOS linkage conventions are followed. 
General registers 2-12 must be preserved by APLUBILN and 
APLUBILF. 



Installation-Written Routine Descriptions 

APLUBILN 

Purpose: To scan an input card for an account number, and 
return it as a fullword integer. 

On entry, Rl points to a two-word parameter list. The first 
word is the address of an 80-character EBCDIC card image, 
and the second word is the address of a fullword in which to 
store the converted account number. A zero value returned 
for the account number causes the Utility to ignore the 
card, print an error message, and continue processing. A 
negative value causes the Utility to ignore the card with no 
error message. APLUBILN may modify the card image. The 
Utility calls APLUBILN once for each input card. 
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Bl LINFO 


DSECT 




CONN 


DS 


F 


CPU 


DS 


F 


Bl LNAME 


DS 


CL12 


BI LWSQ 


DS 


H 


BILWSA 


DS 


H 


WSTRACKS 


DS 


H 




DS 


5H 



APLUBILF 

Purpose: To prepare billing information for output, and 
optionally to output it. 

On entry, Rl points to a two-word parameter list. The first 
word is the address of the same 80-character EBCDIC card 
image passed to APLUBILN, including any modifications made 
by APLUBILN. The second word is the address of a block of 
billing information defined by this DSECT: 

SECOND PARAM FROM BILLING 
CONNECTED TIME IN SEC/300 
COMPUTE TIME IN SEC/300 
SIGN ON NAME IN INTERNAL CODE 
WORKSPACE QUOTA 
ACTUAL NUMBER OF WS 
TOTAL TRACKS FOR ALL WS 
RESERVED 



The track count in WSTRACKS includes tracks occupied by any 
workspaces saved by this user in common libraries. API.UBILF 
is called once for each billing input card that was not 
rejected by APLUBILN or by the BILLING program. 

APLUBILF may prepare no, one, or more than one output 
record. If output records are being punched, punching must 
be done by calling the subroutine APLUBILP with Rl pointing 
to a parameter list whose single entry is the address of the 
80-character EBCDIC output record. APLUBILP supports punch 
retry and works in coordination with the card reading and 
bufferring subroutine to maximize reading and punching 
rates o Output to a device other than SYSPCH must be done by 
APLUBILF. 

Following the last billing output, APLUBILL calls APLUBILF 
one additional time with all fields of the second parameter 
set to -1. If output is to a unit other than SYSPCH, this 
call may serve as a signal for APLUBILF to close any output 
files. It also provides an opportunity to output summary 
totals. As usual, APLUBILF must return to its caller. 



Including APLUBILN and APLUBILF in the APL Utility 



1. Assemble or compile APLUBILN and APLUBILF, preferably 
as a single relocatable module. 
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2. Catalog the relocatable module by the name APLUINST. 

If the programs are not in a single module, 
catalog them separately and catalog a calling 
module with the name APLUINST. 

3. Link- edit the APL Utility. 

4. Before performing a BILLING operation, make sure that 

APLUBILN and APLUBILF are debugged, by testing 
thep! using the TESTBILL operation. Because of the 
buff erring done by the Utility, a program check 
during a BILLING execution is very likely to 
produce billing output without resetting system 
accounting information. 



Sample Installation Routines 

The following pages show sample assembly and Cobol routines 
for APLUBILN and APLUBILF. With the exception of punching 
the date on output cards, the two programs are believed to 
behave identically. 
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// EXEC 



CUBfJL 

IDEM TIF I CAT I ON 

PkOGKAh-IL). 

REHAKKS. IN 

biLLiNG 

INSTALL 

APLUBIL 

ENVIRONMENT [)I 

DATA DIVISION. 

WORKING-STOR 

01 BILLING- 

02 FIL 

02 ACC 

02 FIL 

02 PRO 

02 FIL 

02 DEP 

2 NAM 

02 TIM 

02 FIL 

02 CAR 

02 FIL 

WORK -ACC 



Dl VI SI ON, 
• APLOInS f • 

stallation-de 
-out pot-card 
ation-defined 
n and aplobil 

VISION. 



FINED ROOTIbJES FOR A PL BILLING. 
AND BILLING- IN PUT -CARD HAVE 

FORMATS. FORMATTING IS DONE BY 
F. 



01 
01 
01 



CONCHG P 
CPOCHG P 
LINKAGE SECT 

01 BILLING- 
2 ACC 
02 FIL 

01 RE TORN- A 

01 BILLING- 
02 FIL 
02 ACC 
02 FIL 
02 PRO 
02 FIL 
02 DEP 
02 FIL 
02 NAM 
02 FIL 

01 BILLING- 
02 CON 
02 CPU 
02 FIL 
02 WS- 
2 WS- 
02 WS- 
2 FIL 
PROCEDURE DIVI 



AGE SEC 
OUTPUl - 
LER PIC 
OOnT-ImO 
LER PIC 
J -NO PI 
LER PIC 
T-ivO PI 
E PICTO 
E PICTO 
LER PIC 
DC ODE P 
LER PIC 
00 NT PI 
ICTURE 
I C TO RE 
I OIM . 
INPOT-C 
OUNT-ImO 
LER PIC 
CCOUNT- 
INFO-CA 
LER PIC 

ount-no 

LER PIC 
v)-MO PI 
LEK PIC 
T-NO PI 
LEk PIC 
E PICTO 
LER PIC 
iNrO-CH 
NECT PI 
PIC TOR 
LER PIC 
QUOTA P 
ACTUAL 
TRACKS 
LER PIC 
S I ON . 
G£. 
BILN' U 



TION. 
CARD. 
TURE X 
PICTO 
TURE X 
CTURE 
TURE X 
CTURE 
RE X( 1 
RE 9( 8 
TURE X 
ICTURE 
TURE X 
CTURE 
Sy(9) 
S9(9) 

ARD. 

PICTU 
TURE X 
NO PIC 
RD. 
TURE X 

PICTU 
TURE X 
CTURE 
TURE X 
CTURE 
TURE X 
Rt X{ 1 
TURE X 
ARGE. 
CTURE 
E S9(9 
TURE X 
ICTURE 
PICTUR 
PICTUR 
TURE X 



RE 

X( 

(7 

X( 

3) 

) 

» 

X 
{ 2 
X{ 
CO 
CO 



VALUE '0'. 

X{ 11 ) . 
VALUE SPACE. 
4) . 

), VALUE SPACE. 
3). 
. 

DISPLAY. 
VALUE •-'. 

8), VALUE SPACE 
12) . 

MPLiTATIONAL. 
MPUTATIONAL. 



RE 9(12). 

(68) . 

TURE S9 ( 9 ) COHPUTaT I UiMAL . 



RE X( 11) . 
X(4). 
XI 3) . 

• 

5) . 
(42). 

S9(9) COMPUTATIONAL. 
) COMPUTATIONAL. • 
( 12), 

S9(4) CUMPOTATIONAL. 
E S9{4) COMPUTATIONAL 
E S9(4) COM POT AT I ON A L 
( 10). 



ENTER LINK A 

ENTRY 'APLU 

ENTER COBOL. 

MOVE ACCOUNT-NO IN BILL I 



SING BILLING-INPUT-CARDt RE TURN-ACCOUIXIT-NU . 
MG-IN PUT-CARD TO WORK-ACCOONT . 
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MOVE 
EXAM 
IF W 



ENTE 
RETU 
ENTE 
ENTE 
ENTR 

ENTE 
IF C 
NOTE 
IF C 
DIVI 
[) I V I 
IF C 
IF C 
MOVE 

MOVE 

MOVE 

MOVE 

MOVE 
MOVE 
ENTE 
CALL 
ENTE 
MOVE 
MOVE 
ENTE 
CALL 
ENTE 
NO-OU 
RETU 
ENTE 




INE 
ORK 

IF 



R L 

RN. 

R C 

R L 

Y ' 

BI 

R C 

PUC 

W 

ONN 

DE 

DE 

ONC 

PUC 

AC 

TO 

PR 

TO 

DE 

TO 

NA 

TO 

CO 

R L 

•A 

R C 
• = 

CP 
R L 

•A 
R C 

TPU 

RN. 
R C 



TU RETURl\!-ACCOUNT-NU. 

WORK-ACCOUNT REPLACING LEADING SPACES HY ZEROES. 
-ACCOUNT IS NUMERIC THEN 

WORK-ACCOUNT NOT GREATER THAN • 002 147483647 '■ THEN 

1^1 V E A C C U N T -iM I N B I L L I N G - I i\l P U T - C A R D 

T R E r U R IM - A C C U N T - N . 
IMKAGE. 



OBOL 
I f\lKA 
APLU 
LLIN 
OBOL 
HG N 
OULD 
ECT 
18 00 
3 00 
HG Z 
HG Z 
COUN 

ACC 
OJ-N 

PRO 
PT-N 

DEP 
ME I 

NAM 
' TO 
NCHG 
INKA 
PLUB 
OBOL 
' TO 
UCHG 
I NKA 
PLUB 
OBOL 
T. E 



GE. 

BILE* USING BILLING- INFO-CARD, 

G- INFO-CHARGE. 

• 

EGATIVE GO TO NO-OUTPUT. 

CLOSE FILE INSTEAD HERE IF GOING TO TAPE OUTPUT 
ZERO GO TO NO-OUTPUT. 

INTO CONNECT GIVING CONCHG ROUNDED. 
INTU CPU GIVING CPUCHG RUUNDEu. 
ERU hUVE 1 TU CONCHG. 
ERO MOVE 1 TO CPUCHG. 
T-NU IN BILLING-INFO-CARD 
OUN T-iMU IN BILLING-OUTPUT-CARD. 

In billing-Info-card 

J-iMO IN BILLING-OUTPUT-CARD. 

In BILLING-INFO-CARD 

T-NO IN BILLING-OUTPUT-CARD. 

N BILLING-INFO-CARD 

E IN BILLING-OU.TPUT-CARD. 

CARDCODE IN BILLING-OUTPUT-CARD. 

TO TIME. 
GE . 

1 LP' USING BILLING-OUTPUT-CARD, 
. 

CARDCODE IN B I LL I NG-OUTPUT-CARD. 

TO TIME. 
GE. 
I LP' USING BILL I NG-OUTPUT-CARD. 

NTER LINKAGE. 



OBOL. 



/* 
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PUNCH ' CATALR APLUINST* 
APLUINST CSECT 

EXTf^N APi-UBILP 

ENTRY APLUBILN 

ENTRY APLUBILF 

PRINT NCGEN 

LKR EQU 15 

* APLUBILN CHECKS THAT THE INPUT CARD IS VALID AND 

* GETS THE Han NUMBER FROM IT. ZERO MAN NO IS USED 

* TC INDICATE AN INVALID CARD 
APLUBILN SAVE { 14,12) 

BALR iltO 

USING *,11 

LR 6,1 

L 5»G(6) 

BCTR 3,0 R5 HAS ADDRESS OF INPUT CARD 

t-R 1,5 

LA 2,1 

LA 3,1U1) SCAN To COLUMN 12 

BPCHl CLI 1(1), C» « 

BNE ePCH2 

BXLE i, 2, BPCHl 

B ZEROMAN 

BPCH2 CLI 1(1), C»Q* MUST BE NUMERIC 

BL ZEkOHAN 

BXLE 1,2,BPCH2 

PACK WC:kK1 (8) , i( 12, 5) GET MAN NO 

CLC kCRKKB) ,=X»OOC0C2i47483647f * 

BH Zero MAN 

CVB l,wORKl 

B STMAN 

ZEROMAN SR 1»1 ZERO N^N NO MEANS INVALID CARD 

STHAN L 5,4{6) 

ST 1,0(5) STORE NAN NO IN 2ND PARAHETER 

RETUr.M (14»12) 

-i- 

* APLUBILF USE THE INFORMATION IN BILINFO TO DO THE 

* ACCOUNTING. IN OUR CASE THIS HEANS PUNCHING TWO 

=^' CARDS UNt FOR CONNECT TlHfc IN MINUTES AND ONE FOR 

- COMPUTE TIHE IN SECONDS. THh PUNCHING IS DONE BY 

* THE APL PROVIDED FUNCTION APLUBILP 
APLUBI LF 



R13 DURING CALL TO PUNCH 



SAVt 


{ 14,12) 


BALR 


11, C 


USIislG 


':^,li 


ST 


13, SAVE 13 PRO.TECT 


LR 


6,1 


L 


5,0(6) 


BCTR 


5,0 r5 has 




INITIALIZE CARD NITH BLANKS 


HVI 


EILBF,C«0» 


MVI 


E1lBF+1,C* . 


MVC 


BILBF+2( 78), BlLBF+l 


,vVl 


eiLBF+50,C«*« 


CUMRG 




N'VC 


FILBF+6B(2 ), C( 1) 



address of input card 

ano date 
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MVC EIL6F+70(2),3( 1) 

* MCVE INFORMATION FROW INPUT CARD TO OUTPUT CARD 
MvC BILBF + 1( 1U,2{ 5) 

mC BILBF+13(4)» 14(5) 

MVC BILBF+24(3), 19(5) MOVE IN NAMEf PROJ i. DEPT NOS. 

MVC BILBF + 27( 15),23( 5) 

HVI EILBF+51tC«S^» 

L 5,4(6) 2ND PARAMETER IS BILINFO 

* PROCESS CONNECT TIME CARD 
L 3,CaNN-BIL INFO{ 5) 

LTR 3,3 NO OUTPUT IF ZERO CONNECT TIME 

BZ EXIT 

BL EXIT NEGATIVE CONNECT TIME EOF SIGNAL 

A 3,= A (300*3 0) ROUND UP TO MINUTES 

SR 2*2 

D 2, = A ( 300^=60) 

ET^^ 3,3 MINIMUM l MINUTE 

BNZ >!' + 8 

LA 3,1 

CVD ?,W0RK1 

MVC BILBF<-42(8),£0PAT 

EDMK EILBF+^2(8 ),W0RKl-»-4 

LA 13,SAVREG2 

CALL /^PLUBILPt ( 6ILBE )• USE APE PUNCHING ROUTINE 

MVI EILBF+51,C*=* COMPUTE TIME CARDS HAVE = IN COL 

* 51 

- PROCESS COMPUTE TIME CARD 

L 3,CPU-8ILINF0{ 5) 

A 3,=A(150) ROUND UP TO SECONDS 

SR 2,2 

D 2,-^A<3C0) 

LTR 3,3 MINIMUM 1 SECOND 

BNZ ^= + 8 

LA 3,1 

CVD 3,W0RK1 

MVC BILBF+42{8), EOPAT 

EDMK ElLBF+42(8) .WORK I +4 

LA i3,SAVREG2 

CALL APLUBILP, ( 6ILBF) USE APE PUNCHING ROUTINE 

EXIT L 13,SAVtl3 

RETURN (14,12) 

EDPAT DC X«FC2120202C202020» 

SAVE13 DS E 

wCRKl CC C»G« 

SAVREG2 DS 90 

BILDF DS CL«G 

BILINFO DSECT SECOND PAR AM FROM APLUBIL 

CONN DS F CONNECTED TIME IN SEC/3CC 

CPU DS F COMPUTE TIME IN SEC/300 

BILNAME OS CL 12 SIGN ON NAME IN INTERNAL CODE 

BILWSQ DS F WORKSPACE QUOTA 

BILwSA DS F ACTUAL NUMBER OF WS 

k^STRACKS DS F TOTAL TRACKS FOR ALL WS 

DS 5h RESERVED 

* END OF ACCOUNTING ROUTINES 



END 
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